# Title     : TODO
# Objective : TODO
# Created by: ssh
# Created on: 2022/8/20

# library(ggplot2)
#
# rm(list = ls())
# dat <- data.frame(
#   time = factor(c("Lunch", "Dinner"), levels = c("Lunch", "Dinner")),
#   total_bill = c(14.89, 17.23)
# )
# dat
# ggplot(data = dat, aes(x = time, y = total_bill, fill = time)) +
#   geom_bar(stat = "identity")

age <- c(1, 3, 5, 2, 11, 9, 3, 9, 12, 3)
weight <- c(4.4, 5.3, 7.2, 5.2, 8.5, 7.3, 6.0, 10.4, 10.2, 6.1)
mean(weight)
sd(weight)
cor(age, weight)
plot(age, weight)
